5 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 REM POWER SUPPLY COMP VALUE SELECTOR
20 POKE 53280,0:POKE 53281,0:POKE 646,3
30 PRINT"[147]"
40 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
50 PRINT"[221]                                     [221]"
60 PRINT"[221]      FOR SCREEN DISPLAY, TYPE S     [221]"
70 PRINT"[221]                                     [221]"
80 PRINT"[221]      FOR PRINTER OUTPUT, TYPE P     [221]"
90 PRINT"[221]                                     [221]"
100 PRINT"[221]          TO QUIT, TYPE Q            [221]"
110 PRINT"[221]                                     [221]"
120 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
130 GET D$:IF D$="" THEN 130
140 IF D$="S" THEN 170
150 IF D$="P" THEN 500
160 IF D$="Q" THEN END
170 GOSUB 5000
180 ON T GOTO 1000,2000,3000
500 PRINT "[147]"
510 PRINT"THE PRINTER OPTION PRINTS A TABLE OF"
520 PRINT
530 PRINT"VALUES FOR VARIOUS TRANSFORMERS"
540 PRINT
550 PRINT"TYPE OF CIRCUIT:"
560 PRINT
570 GOSUB 5000
580 ON T GOTO 1500,2500,3500
1000 PRINT "[147]"
1010 PRINT"FULL WAVE BRIDGE, CAPACITOR INPUT FILTER"
1020 INPUT"TRANSFORMER RMS VOLTAGE <0 TO RETURN TO MAIN MENU>";V
1030 IF V=0 THEN 30
1040 PRINT:INPUT"TRANSFORMER CURRENT RATING (AMPS)";C
1050 GOSUB 9000
1060 OC=INT(C/1.8*10)
1070 GOSUB 6000
1080 PRINTTAB(3);V$;TAB(18);RV$;TAB(34);DV$
1090 GOSUB 7000
1100 PRINTTAB(7);CV$;TAB(29);OC/10
1110 PRINT:PRINT:PRINT:PRINT:GOTO 1010
1500 PRINT "[147]"
1510 INPUT"MINIMUM TRANSFORMER VOLTAGE";M
1520 T$="FULL WAVE BRIDGE"
1530 GOSUB 8000
1540 FOR V=M TO M+50
1550 GOSUB 9000
1560 PRINT#4,TAB(4);V$;TAB(21-LEN(V$));RV$;
1565 PRINT#4,TAB(20-LEN(RV$));DV$;TAB(25-LEN(DV$));CV$
1570 PRINT#4,TAB(20-LEN(RV$));DV$;TAB(25-LEN(DV$));CV$
1580 NEXT V
1590 PRINT#4,CHR$(12):CLOSE4:GOTO 500
2000 PRINT "[147]"
2010 PRINT"FULL WAVE CENTER TAPPED, CAPACITOR"
2020 PRINT"INPUT FILTER"
2030 PRINT:PRINT"TRANSFORMER RMS VOLTAGE (ENTIRE "
2040 INPUT"SECONDARY) <0 TO RETURN TO MAIN MENU>";V
2050 IF V=0 THEN 30
2060 PRINT:INPUT"TRANSFORMER CURRENT RATING (AMPS)";C
2070 GOSUB 9000
2080 OC=INT(C/1.2*10)
2090 GOSUB 6000
2100 PRINTTAB(3);V$;TAB(19);SV$;TAB(34)EV$
2110 GOSUB 7000
2120 PRINTTAB(7);CV$;TAB(29);OC/10
2130 PRINT:PRINT:PRINT:PRINT:GOTO 2010
2500 PRINT "[147]"
2510 PRINT"MINIMUM TRANSFORMER VOLTAGE":PRINT
2520 INPUT"(ENTIRE SECONDARY)";M:IF M="" THEN 2515
2530 T$="FULL WAVE CENTER TAP"
2540 GOSUB 8000
2550 FOR V=M TO M+50
2560 GOSUB 9000
2570 PRINT#4,TAB(4);V$;TAB(21-LEN(V$));SV$;
2580 PRINT#4,TAB(20-LEN(SV$));EV$;TAB(25-LEN(EV$));FV$
2590 NEXT V
2600 PRINT#4,CHR$(12):CLOSE 4:GOTO 500
3000 PRINT "[147]"
3010 PRINT:PRINT"FULL WAVE BRIDGE CENTER TAP"
3020 PRINT"CAPACITOR INPUT FILTER"
3030 PRINT
3040 PRINT"TRANSFORMER RMS VOLTAGE"
3050 INPUT"(ENTIRE SECONDARY) <0 TO RETURN TO MAIN MENU>";V
3060 IF V=0 THEN 30
3070 PRINT:PRINT
3080 INPUT"TRANSFORMER CURRENT RATING (AMPS)";C
3090 GOSUB 9000
3100 OC=INT((C/1.8)/2*10)
3110 GOSUB 6000
3120 PRINTTAB(3);V$;TAB(18)"+/-";SV$;TAB(34);EV$
3130 GOSUB 7000
3140 PRINTTAB(7);CV$;TAB(28);"+/-"OC/10
3150 PRINT:PRINT:PRINT:PRINT:GOTO 3010
3500 PRINT "[147]"
3510 PRINT"MINIMUM TRANSFORMER VOLTAGE":PRINT
3520 INPUT"(ENTIRE SECONDARY)";M
3530 T$="FULL WAVE BRIDGE CENTER TAP"
3540 GOSUB 8000
3550 FOR V=M TO M+50
3560 GOSUB 9000
3570 PRINT#4,TAB(4);V$;TAB(21-LEN(V$))"+/-";SV$;
3580 PRINT#4,TAB(16-LEN(SV$));EV$;TAB(26-LEN(EV$));FV$
3590 NEXT V
3600 PRINT#4,CHR$(12):CLOSE4:GOTO 500
5000 REM SUBROUTINES
5100 PRINT "[147]"
5200 PRINT"POWER SUPPLY TYPE":PRINT
5300 PRINT"    FULL WAVE BRIDGE (1)"
5400 PRINT"    FULL WAVE CENTER TAP (2)"
5500 PRINT"    FULL WAVE BRIDGE CENTER TAP (3)":PRINT
5600 PRINT" ALL USING CAPACITOR INPUT FILTERING":PRINT
5700 PRINT"SELECT TYPE 1, 2, 3, OR"
5800 INPUT"4 TO RETURN TO MAIN MENU";T
5900 IF T=0 THEN 5900:IF T=4 THEN GOTO 30:RETURN
6000 PRINT"[147]"
6100 PRINT"TRANSFORMER";TAB(20);"DC";TAB(34);"DIODE"
6200 PRINT"VOLTAGE(RMS)";TAB(18);"VOLTS";TAB(35);"PIV"
6300 PRINT
6400 RETURN
7000 PRINT:PRINT:
7100 PRINTTAB(5);"CAPACITOR";TAB(30);"DC"
7200 PRINTTAB(6);"VOLTAGE";TAB(25);"CURRENT(AMPS)"
7300 RETURN
8000 CLOSE4:OPEN4,4
8100 PRINT#4:PRINT#4:PRINT#4
8200 PRINT#4,TAB(30-LEN(T$)/2),T$
8300 PRINT#4,TAB(18),"CAPACITOR INPUT FILTER"
8400 PRINT#4
8500 PRINT#4,TAB(2)"TRANSFORMER";TAB(14)"DC";TAB(15)"DIODE";
8600 PRINT#4,TAB(19)"CAPACITOR"
8700 PRINT#4,TAB(2)"VOLTAGE(RMS)";TAB(11)"VOLTS";TAB(15)"PIV";
8800 PRINT#4,TAB(21)"VOLTAGE"
8900 RETURN
9000 RV=INT((V*.95*1.414)+.04):RV$=STR$(RV)
9100 SV=RV/2:SV$=STR$(SV)
9200 DV=INT(2*RV):DV$=STR$(DV)
9300 EV=INT(4*SV):EV$=STR$(EV)
9400 FV=INT(1.3*SV):FV$=STR$(FV)
9500 CV=INT(1.3*RV):CV$=STR$(CV)
9600 V$=STR$(V)
9700 RETURN